home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / WORMY.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1986-08-26  |  134 b   |  2 lines
  1. 3  CLS:SCREEN 1:KEY OFF:LOCATE 1,18:PRINT "WORMY":FOR Z=0.1 TO 1.1 STEP 0.002:C=C+0.1:CIRCLE(Z*200,SIN(Z*24)*(Z*50)+100),Z*40,C:C=-C*(C<15):NEXT:FOR L=1 TO 5000:NEXT
  2.